home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / gettysburg.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  18.0 KB  |  730 lines  |  [TEXT/XCNQ]
  1. (game-module "gettysburg"
  2.   (title "Gettysburg")
  3.   (blurb "The Battle of Gettysburg, 1-3 July 1863")
  4.   (instructions (
  5.    "Most of the brigades are off-board, will come in a few at a time; "
  6.    "the Confederates from the north and west, the Federals from the south."
  7.    ""
  8.    "You have to try to hold your positions, while at the same time "
  9.    "charging the enemy."
  10.    ""
  11.    "Artillery can be captured, so be sure to guard it."
  12.    ))
  13.   (variants
  14.     (see-all true)
  15.     ("Day/Night" day-night (true (world (day-length 24))))
  16.     )
  17.   )
  18.  
  19. (unit-type infantry (image-name "soldier-acw"))
  20. (unit-type cavalry)
  21. (unit-type artillery (image-name "cannon"))
  22. (unit-type supply-train (image-name "wagon"))
  23.  
  24. (define inf infantry)
  25. (define cav cavalry)
  26. (define arty artillery)
  27.  
  28. (terrain-type clear (color "wheat") (image-name "straw") (char "+"))
  29. (terrain-type rough (color "yellow") (image-name "mountains") (char "^"))
  30. (terrain-type light-woods (color "forest green") (char "%"))
  31. (terrain-type orchard (color "green"))
  32. (terrain-type woods (color "dark olive green") (image-name "forest") (char "%"))
  33. (terrain-type town (color "gray") (image-name "urban") (char "G"))
  34. (terrain-type stream (color "sky blue") (image-name "water")
  35.   (subtype border))
  36. (terrain-type ravine (color "tan") (image-name "gully")
  37.   (subtype border))
  38. (terrain-type trail (color "brown")
  39.   (subtype connection))
  40. (terrain-type road (color "dark slate gray")
  41.   (subtype connection))
  42.  
  43. ;; This covers the gamut of elevations, from the bottom of Rock Creek to
  44. ;; the top of Big Round Top.
  45.  
  46. (add t* elevation-min 250)
  47. (add t* elevation-max 700)
  48.  
  49. (add (light-woods orchard woods) thickness (10 10 20))
  50.  
  51. (set grid-color "gray")
  52.  
  53. ;;; Static relationships.
  54.  
  55. (add t* capacity 3)
  56.  
  57. (table unit-size-in-terrain
  58.   (u* t* 1)
  59.   (inf road 10)
  60.   (supply-train t* 0)
  61.   )
  62.  
  63. ;(add u* possible-sides (not "independent"))
  64.  
  65. ;;; Vision.
  66.  
  67. (set terrain-seen true)
  68.  
  69. (add u* vision-range 5)
  70.  
  71. (add u* vision-bend 0)
  72.  
  73. (table visibility
  74.   (u* t* 100)
  75.   (u* (orchard light-woods) 50)
  76.   (u* woods 0)
  77.   )
  78.  
  79. (table eye-height
  80.   ;; Infantry can stand on a fence, cavalry is on horse,
  81.   ;; artillery can stand on cannons to see better.
  82.   (u* t* 9)
  83.   )
  84.  
  85. ;;; Actions.
  86.  
  87. (add u* acp-per-turn (8 16 8 8))
  88.  
  89. ;; Night shuts things down considerably.
  90.  
  91. (table acp-night-effect
  92.   ;; 1/4 of normal abilities.
  93.   (u* t* 25)
  94.   ;; Infantry in open terrain can still move around somewhat.
  95.   (infantry clear 50)
  96.   ;; (should allow movement along roads at normal rate?)
  97.   )
  98.   
  99. ;;; Movement.
  100.  
  101. (table mp-to-enter-terrain
  102.   (u* t* 1)
  103.   (u* rough 99)
  104.   (inf rough 2)
  105.   ((cav arty) woods 4)
  106.   ((inf cav) stream 0)
  107.   ((cavalry arty) road 0)
  108.   )
  109.  
  110. (table mp-to-leave-terrain
  111.   (u* t* 1)
  112.   (u* rough 99)
  113.   (inf rough 2)
  114.   ((cav arty) woods 4)
  115.   ((cavalry arty) road 0)
  116.   )
  117.  
  118. (table mp-to-traverse
  119.   ((arty cavalry) road (2 1))
  120.   (supply-train (trail road) (2 1))
  121.   )
  122.  
  123. (table zoc-range
  124.   (inf inf 1) ; should be 2
  125.   )
  126.  
  127. (table mp-to-enter-zoc
  128.   (inf inf 4)
  129.   )
  130.  
  131. (table mp-to-traverse-zoc
  132.   (inf inf 4)
  133.   )
  134.  
  135. ;;; Repair.
  136.  
  137. (table acp-to-repair
  138.   (u* u* 4)
  139.   )
  140.  
  141. (table hp-per-repair
  142.   (u* u* 2)
  143.   )
  144.  
  145. ;;; Combat.
  146.  
  147. (add u* hp-max 8)
  148.  
  149. (table acp-to-attack
  150.   (u* u* 4)
  151.   (arty u* 0)
  152.   (supply-train u* 0)
  153.   )
  154.  
  155. (table acp-to-defend
  156.   (u* u* 4))
  157.  
  158. (table hit-chance
  159.   (u* u* 50)
  160.   (supply-train u* 0)
  161.   )
  162.  
  163. (table damage
  164.   (u* u* 1d3)
  165.   (supply-train u* 0)
  166.   )
  167.  
  168. (add arty range 5)  ;  (5 or 3 - need two types?)
  169.  
  170. (add arty acp-to-fire 8)
  171.  
  172. (table capture-chance
  173.   (infantry arty 30)
  174.   )
  175.  
  176. ;; Everybody bounces back over time.
  177.  
  178. (add u* hp-recovery 0.25)
  179.  
  180. ;;; The world.
  181.  
  182. (world 125000 (axial-tilt 22))
  183.  
  184. (area 50 36 (cell-width 1000))
  185.  
  186. (area (terrain
  187.   "50a"
  188.   "aea2e5ae5a2e3ae9ae18a"
  189.   "ae8a2e5aea2e2ae7ae18a"
  190.   "9aeae5ae2ae2ae7ae18a"
  191.   "10ae39a"
  192.   "4ae23ae2ae4ae13a"
  193.   "13ad6ae8a3e4ae13a"
  194.   "ae4a2e5aed5ae3ae25a"
  195.   "ae12ae6ae3ad6a2e3ad12a"
  196.   "ae2ae2ae2ae3ae12a2e4ae16a"
  197.   "5aeae2aea2ead11a2e21a"
  198.   "10aead2ae2a3f6a3e8ae3ae7a"
  199.   "3ae3ae2a2e4ae2a2fe5a3e8a2e3ae6a"
  200.   "aeae3ae3ae4ae10a2e6ae2a3e3ae5a"
  201.   "aea2e2a2e2aead3ad6ae2a2ead4ae7a3e4a"
  202.   "2ae6a2e2ad3ae6a2ea3e15ae4a"
  203.   "2a2e4ad4ae3ae6a3ea3e19a"
  204.   "14ae2ae3ac4aea3eae10ae6a"
  205.   "15a3e5aea7ea2e6ae2a3ed2a"
  206.   "13ad2aeae5ae2a2ea2e2ae3a4e8a"
  207.   "12a2e3ae13ae10ae7a"
  208.   "11ae2ae2ae2ad3aea2eae3ae16a"
  209.   "7a2e2aea3e2ae10ae3ae5ae10a"
  210.   "7a2e2ae7a2d3a2e3ae3ae4a3e7aea"
  211.   "8a2e14a3ea3e10aead3a2ea"
  212.   "9a2e3aeaea2ead2e5a3eae14aea"
  213.   "10ae3aeae3ae2ae3c6ae8a3e3aea"
  214.   "14ae6ae2ae2c7aeae5ac3e4a"
  215.   "21ae2a4e6ae9a2c4a"
  216.   "21ad6e22a"
  217.   "18a3e2a5e9ae2a3e2ad4a"
  218.   "19ae4a2e2aead10a3e2ad3a"
  219.   "18a3e7a2e20a"
  220.   "19a2e3a3ea2e20a"
  221.   "25a2e2ae3ae3ae3a3e6a"
  222.   "50a"
  223. ))
  224.  
  225. (area (aux-terrain stream
  226.   "50a"
  227.   "6agq7acy33a"
  228.   "6agL8ahq32a"
  229.   "6acT8agL32a"
  230.   "7ahq7acXi31a"
  231.   "7acXi7ab?y30a"
  232.   "8ab?y8ahq29a"
  233.   "10ahq7acT29a"
  234.   "10acT8ap}4aem22a"
  235.   "11ady7adU<3agM<21a"
  236.   "12ahq7ady3agL22a"
  237.   "12agL8ahq2agL22a"
  238.   "12agL8acT2agL22a"
  239.   "ai10agL9adyagL22a"
  240.   "ady9agL10adygL22a"
  241.   "2ad}mi6agL11ad:L22a"
  242.   "3ab=?y5acT12ahL22a"
  243.   "6ady5ahq11agL22a"
  244.   "7ahq4agL11acT22a"
  245.   "6aeoL4agL12ady21a"
  246.   "6acU<4acTgq11ady20a"
  247.   "7ady5ahwL12ady19a"
  248.   "8ad}mi2acZL13ady18a"
  249.   "9ab=?y2ahL14ahq17a"
  250.   "12ad}igL14acT17a"
  251.   "13abCwL15ahqae14a"
  252.   "14agNT15acXicT13a"
  253.   "14agLhq14aenKqhq12a"
  254.   "14acTgL15a?YDgL12a"
  255.   "15ad:T16abC:L12a"
  256.   "16ab?y12ac}2moM<12a"
  257.   "18ahq12ab=CYH2m11a"
  258.   "18agL14acU3=<10a"
  259.   "18agL15ady13a"
  260.   "18acL16adq12a"
  261.   "50a"
  262.   ))
  263. #|(area (aux-terrain stream
  264.   "50a"
  265.   "6agq7acy33a"
  266.   "6agL8ahq32a"
  267.   "6acT8agL32a"
  268.   "7ahq7acXi31a"
  269.   "7acXi7ab?y30a"
  270.   "8ab?y8ahq29a"
  271.   "10ahq7acT29a"
  272.   "10acT8ap}4aem22a"
  273.   "11ady7adU<3agM<21a"
  274.   "12ahq7ady3agL22a"
  275.   "12agL8ahq2agL22a"
  276.   "12agL8acT2agL22a"
  277.   "12agL9adyagL22a"
  278.   "12agL10adygL22a"
  279.   "12agL11ad:L22a"
  280.   "12acT12ahL22a"
  281.   "13ahq11agL22a"
  282.   "13agL11acT22a"
  283.   "13agL12ady21a"
  284.   "13acTgq11ady20a"
  285.   "14ahwL12ady19a"
  286.   "8ae2mi2acZL13ady18a"
  287.   "8acM=?y2ahL14ahq17a"
  288.   "12ad}igL14acT17a"
  289.   "13abCwL15ahqae14a"
  290.   "14agNT15acXicT13a"
  291.   "14agLhq14aenKqhq12a"
  292.   "14acTgL15a?YDgL12a"
  293.   "15ad:T16abC:L12a"
  294.   "16ab?y12ac}2moM<12a"
  295.   "18ahq12ab=CYH2m11a"
  296.   "18agL14acU3=<10a"
  297.   "18agL15ady13a"
  298.   "18acL16adq12a"
  299.   "50a"
  300. ))|#
  301.  
  302. (area (aux-terrain ravine
  303.   "50a"
  304.   "7agq41a"
  305.   "7agL14ai26a"
  306.   "7acT14ad}3agq20a"
  307.   "8ahq14ab<3a<20a"
  308.   "9a<40a"
  309.   "50a"
  310.   "50a"
  311.   "50a"
  312.   "35ai14a"
  313.   "35ady13a"
  314.   "34agqdy12a"
  315.   "18ae15agLab12a"
  316.   "18agL14agL14a"
  317.   "18agL14acL14a"
  318.   "18agL30a"
  319.   "19a<14agq14a"
  320.   "34agL4ae9a"
  321.   "34agL4acL8a"
  322.   "34acT4ae9a"
  323.   "35ahqeiaoL8a"
  324.   "35agLgMab<8a"
  325.   "36a<a<11a"
  326.   "50a"
  327.   "50a"
  328.   "50a"
  329.   "50a"
  330.   "50a"
  331.   "50a"
  332.   "50a"
  333.   "50a"
  334.   "50a"
  335.   "50a"
  336.   "50a"
  337.   "50a"
  338.   "50a"
  339. ))
  340.  
  341. (area (aux-terrain trail
  342.   "50a"
  343.   "19ae30a"
  344.   "20a@29a"
  345.   "21a>u27a"
  346.   "23a@3ac}21a"
  347.   "24a@3aj>u19a"
  348.   "25a>uaj2a>u17a"
  349.   "27a@j4a@4ai11a"
  350.   "28aE5a@3aj11a"
  351.   "27akr6a@2aj11a"
  352.   "27aj8a@aj11a"
  353.   "27aj9a@j11a"
  354.   "18ai8af10aE11a"
  355.   "18aj9aD9aj11a"
  356.   "18aj9aj9aj11a"
  357.   "18ab9aj9aj11a"
  358.   "28af9aj11a"
  359.   "7ae21aD8af11a"
  360.   "8aD20aj9aD10a"
  361.   "8af20aj9aj10a"
  362.   "9aD18akr9aj10a"
  363.   "9af18aj10aj10a"
  364.   "10a>u12ak3sv10aj10a"
  365.   "12a@7acu2aj4aD9af10a"
  366.   "13a>s2{su3a>uj4an10aD9a"
  367.   "15a2j2a>q3a?suakr@6ai2aj9a"
  368.   "15a2f10a>r2a@5aj2aj9a"
  369.   "16a2D9acsu2a@4aj2ab9a"
  370.   "16a2j12a>ua@3aj12a"
  371.   "16ajn14a>sP2aj12a"
  372.   "14acstr@2ae13a>wr12a"
  373.   "19a@2a@14a@12a"
  374.   "20a@2a@7aksu4aD11a"
  375.   "21a<2a>6sr2a>3sr11a"
  376.   "50a"
  377.   "50a"
  378. ))
  379.  
  380. (area (aux-terrain road
  381.   "50a"
  382.   "7ae4ae2ai3ai10aksq17a"
  383.   "8a>u3a@aj3aj8aksr19a"
  384.   "acu7a@3a@f3aj7akr21a"
  385.   "3a>u6a@3a@D2aj5aksr22a"
  386.   "5a>u5a>u2aE2aj4akr24a"
  387.   "7a>u5a@af2aj4aj25a"
  388.   "9a>u4a@aDaj3akr25a"
  389.   "11a>u3a@faj2akr26a"
  390.   "13a>u2a@Djakr27a"
  391.   "15a>uaAnkr28a"
  392.   "17a>q=?2su26a"
  393.   "15ak3syi3a>su23a"
  394.   "13aksr3a2f6a>su20a"
  395.   "12akr6aDH8a>3su15a"
  396.   "10aksr7apr@12a>3su10a"
  397.   "8aksr9aj@a@16a>2su6a"
  398.   "6aksr11ajaDa@19a>3sqa"
  399.   "4aksr13ajaf2a@24a"
  400.   "3acr15aj2a@2a@23a"
  401.   "20aj3a@2a@22a"
  402.   "20aj4aD2a>su19a"
  403.   "20aj4af5a@18a"
  404.   "20aj5aD5a>u16a"
  405.   "20aj5af7a>u14a"
  406.   "20af6aD8a>u12a"
  407.   "21aD5aj10a>u10a"
  408.   "21aj5af12a>u8a"
  409.   "21aj6a@13a>u6a"
  410.   "21aj7aD14a>u4a"
  411.   "21aj7af16a>u2a"
  412.   "21aj8aD17a<a"
  413.   "21aj8af19a"
  414.   "21aj9aD18a"
  415.   "21ab9ab18a"
  416.   "50a"
  417. ))
  418.  
  419. (area (features (
  420.    (17 "ridge" "Seminary %T")
  421.    (16 "town" "Gettysburg")
  422.    (15 "hill" "Barlow's %T")
  423.    (14 "hill" "Granite %T")
  424.    (13 "hill" "Oak %T")
  425.    (12 "hill" "Benner's %T")
  426.    (11 "hill" "Wolf %T")
  427.    (10 "hill" "Culp's %T")
  428.    (9 "hill" "Power's %T")
  429.    (8 "hill" "Cemetery %T")
  430.    (7 "hill" "Little Round Top")
  431.    (6 "hill" "Big Round Top")
  432.    (5 "ridge" "Cress %T")
  433.    (4 "ridge" "Warfield %T")
  434.    (3 "ridge" "Cemetery %T")
  435.    (2 "ridge" "McPherson's %T")
  436.    (1 "ridge" "Herr %T")
  437.   )
  438.   "50a"
  439.   "50a"
  440.   "50a"
  441.   "33ao16a"
  442.   "50a"
  443.   "50a"
  444.   "8ab41a"
  445.   "8a2b40a"
  446.   "7a3b40a"
  447.   "7a3b3ac36a"
  448.   "7a3b3ac36a"
  449.   "7a2b4a2c3a3q3am25a"
  450.   "8ab5ac4a2q29a"
  451.   "8ab5ac35a"
  452.   "8ab12ad28a"
  453.   "8ab12aidak25a"
  454.   "9ab11a2d6al20a"
  455.   "21a2d27a"
  456.   "21a2d27a"
  457.   "22ad27a"
  458.   "23ad26a"
  459.   "24ad2ad22a"
  460.   "25ad24a"
  461.   "26ad23a"
  462.   "25ab24a"
  463.   "50a"
  464.   "26ah23a"
  465.   "26ah23a"
  466.   "50a"
  467.   "26ag23a"
  468.   "50a"
  469.   "50a"
  470.   "50a"
  471.   "50a"
  472.   "50a"
  473.   "50a"
  474. ))
  475.  
  476. (area (elevations (xform 1 370)
  477.   "5*90,7a3:3k3:2a4*70,a5*130,17a"
  478.   "6*90,:4*90,a4:2k3:2a2*70,2*110,2*70,5*130,16a"
  479.   "6*90,:2*90,a2*90,a4:2k2:3a2*70,3*110,6*130,15a"
  480.   "3*90,2:90,:2*90,a2*90,a4:3k4a3*70,2*110,4*130,260,2*130,14a"
  481.   "3*90,5:2*90,a2*90,a3:3k2aXa3*90,3*110,5*130,2*120,13a"
  482.   "2*90,2N4:2*90,2a2*90,5:k5X3*90,3*110,7*120,12a"
  483.   "4N4:2*90,2a2*90,a4:a2X2*70,110,2*90,110,90,5*110,5*120,11a"
  484.   "4N4:2*90,3aXa5:aX3*70,110,X110,3*90,2*110,4*100,3*120,10a"
  485.   "4N3:3*90,3a2Xa4:2aX3*70,X11*90,3*120,9a"
  486.   "3N4:3*90,a2:2Xa5:a:4X4*90,5*80,4*90,2N8a"
  487.   "7:3*90,2a2:aXa4:2a:80,2X:4*90,8*80,N80,N7a"
  488.   "7:2*90,D70,a2:aXa5:2a80,5:90,10*70,NaN6a"
  489.   "a7:90,2D70,2:XaX4:D:a80,:2a:3N10X3N5a"
  490.   "2a6:90,2D2*70,:XDX70,2:2*70,N:a:2a:17N4a"
  491.   "3a5:90,2Da2:X2DX2:70,130,N:4a4:2N10:3N3a"
  492.   "6a2:90,a3D:3DX3:2*130,:138,3a:a16:2N2a"
  493.   "7a2:90,7DX3:3*70,:4a170,a18:a"
  494.   "8a:8Da3:2*70,N:4a21:"
  495.   "9a:7Da2:3*70,N2:3a100,20:"
  496.   "9a:7D2a5*70,2:3a80,a2:a16:"
  497.   "10a4:D90,3a2*70,2N70,2ak3a100,2a17:"
  498.   "10a4:4a90,70,90,3N100,2a80,2a-30,2a17:"
  499.   "12a2:3a:a2*70,N:2N70,4a2*-30,2a16:"
  500.   "13a2:2a2:a90,N2:N100,70,4a2*-30,2a15:"
  501.   "17a4:N3:70,5a2*-30,a7:a8:"
  502.   "18a9:5a2*-30,a6:5a4:"
  503.   "9a3:6a8:180,5a2*-30,3a5:8a"
  504.   "10a3:5a6:70,:180,5a3*-30,a-30,k6:6a"
  505.   "11a3:4a7:X80,6a5*-30,2a3k2:5a"
  506.   "12a3:4a6:X290,:5a2*-30,-70,2*-30,a7k4a"
  507.   "13a3:3a5:X3:4a2*-30,3*-70,2*-30,a7k3a"
  508.   "14a3:3a5:3k:4a-30,3*-70,2*-30,2a7k2a"
  509.   "15a3:2a5:ka-10,2:4a3*-70,3*-30,2a7ka"
  510.   "16a2:2a5:kaka:5a2*-70,2*-30,5a4k2a"
  511.   "20a5:ka-10,k:5a-30,2*-70,8a3ka"
  512.   "20a5:ka2*-10,21a"
  513.   ))
  514. #|(area (elevations (xform 20 250)
  515.   "50g"
  516.   "g5sg3su12g6s21g"
  517.   "g5sg2sgsu12g5s21g"
  518.   "g2s2gsg2sgsu12g5s21g"
  519.   "g2s5g2sgsu11g2s24g"
  520.   "gs6g2s2g2s10g2s24g"
  521.   "8gs3g2s10g2s24g"
  522.   "8g2s3gs10g2s24g"
  523.   "7g3s3g2s9g2s24g"
  524.   "7g3s3g2s9g2s24g"
  525.   "7g3s3gsgs8g2s24g"
  526.   "7g2s4gsgs8gs25g"
  527.   "8gs5gsgs7gs25g"
  528.   "8gs5gsgs33g"
  529.   "8gs5gs2gs3gu28g"
  530.   "8gs8gs3g2u27g"
  531.   "9gs7gs3g2u27g"
  532.   "21g2u27g"
  533.   "21g2s27g"
  534.   "22g2s26g"
  535.   "23gs26g"
  536.   "27gs22g"
  537.   "25gs24g"
  538.   "26gs23g"
  539.   "25gs24g"
  540.   "50g"
  541.   "26gu23g"
  542.   "26gu23g"
  543.   "50g"
  544.   "26gu23g"
  545.   "50g"
  546.   "50g"
  547.   "50g"
  548.   "50g"
  549.   "50g"
  550.   "50g"
  551. ))|#
  552.  
  553. (side 1 (name "US") (adjective "Union")
  554.   (color "blue,red,midnight blue") (emblem-name "flag-usa")
  555.   (names-locked true))
  556.  
  557. (side 2 (name "CSA") (adjective "Confederate")
  558.   (color "red,blue,slate gray") (emblem-name "flag-csa")
  559.   (names-locked true))
  560.  
  561. (set sides-min 2)
  562. (set sides-max 2)
  563.  
  564. (inf -21 -1 1 (n "Meredith") (cp -1) (appear 3))
  565. (inf -21 -1 1 (n "Cutler") (cp -1) (appear 3))
  566. (inf -21 -1 1 (n "Paul") (cp -1) (appear 4))
  567. (inf -21 -1 1 (n "Baxter") (cp -1) (appear 4))
  568. (inf -3 -16 1 (n "Rowley") (cp -1) (appear 6))
  569. (inf -3 -16 1 (n "Stone") (cp -1) (appear 6))
  570. (arty -21 -1 1 (n "Wainwright 1") (cp -1) (appear 5))
  571. (arty -21 -1 1 (n "Wainwright 2") (cp -1) (appear 5))
  572. (inf -31 -1 1 (n "Cross") (cp -1) (appear 18))
  573. (inf -31 -1 1 (n "Kelly") (cp -1) (appear 18))
  574. (inf -31 -1 1 (n "Zook") (cp -1) (appear 18))
  575. (inf -31 -1 1 (n "Brooke") (cp -1) (appear 19))
  576. (inf -31 -1 1 (n "Harrow") (cp -1) (appear 19))
  577. (inf -31 -1 1 (n "Webb") (cp -1) (appear 19))
  578. (inf -31 -1 1 (n "Hall") (cp -1) (appear 20))
  579. (inf -31 -1 1 (n "Carroll") (cp -1) (appear 20))
  580. (inf -31 -1 1 (n "Smyth") (cp -1) (appear 20))
  581. (inf -31 -1 1 (n "Willard") (cp -1) (appear 21))
  582. (arty -31 -1 1 (n "Hazard 1") (cp -1) (appear 21))
  583. (arty -31 -1 1 (n "Hazard 2") (cp -1) (appear 21))
  584. (inf -21 -1 1 (n "Graham") (cp -1) (appear 12))
  585. (inf -21 -1 1 (n "Ward") (cp -1) (appear 12))
  586. (inf -21 -1 1 (n "de Trobriand") (cp -1) (appear 27))
  587. (inf -21 -1 1 (n "Carr") (cp -1) (appear 13))
  588. (inf -21 -1 1 (n "Brewster") (cp -1) (appear 13))
  589. (inf -21 -1 1 (n "Burling") (cp -1) (appear 27))
  590. (arty -21 -1 1 (n "Rand a") (cp -1) (appear 12))
  591. (arty -21 -1 1 (n "Rand b") (cp -1) (appear 14))
  592. (inf -43 -19 1 (n "Tilton") (cp -1) (appear 27))
  593. (inf -43 -19 1 (n "Schweitzer") (cp -1) (appear 27))
  594. (inf -43 -19 1 (n "Vincent") (cp -1) (appear 27))
  595. (inf -43 -19 1 (n "Day") (cp -1) (appear 28))
  596. (inf -43 -19 1 (n "Burbank") (cp -1) (appear 28))
  597. (inf -43 -19 1 (n "Weed") (cp -1) (appear 28))
  598. (inf -43 -19 1 (n "McCandless") (cp -1) (appear 31))
  599. (inf -43 -19 1 (n "Fisher") (cp -1) (appear 32))
  600. (arty -43 -19 1 (n "Martin a") (cp -1) (appear 29))
  601. (arty -43 -19 1 (n "Martin b") (cp -1) (appear 29))
  602. (inf -48 -4 1 (n "Torbert") (cp -1) (appear 34))
  603. (inf -48 -4 1 (n "Bartlett") (cp -1) (appear 34))
  604. (inf -48 -4 1 (n "Russell") (cp -1) (appear 34))
  605. (inf -48 -4 1 (n "Grant") (cp -1) (appear 35))
  606. (inf -48 -4 1 (n "Neill") (cp -1) (appear 35))
  607. (inf -48 -4 1 (n "Shaler") (cp -1) (appear 35))
  608. (inf -48 -4 1 (n "Eustis") (cp -1) (appear 36))
  609. (inf -48 -4 1 (n "Wheaton") (cp -1) (appear 36))
  610. (arty -48 -4 1 (n "Tompkins a") (cp -1) (appear 37))
  611. (arty -48 -4 1 (n "Tompkins b") (cp -1) (appear 37))
  612. (arty -48 -4 1 (n "Tompkins c") (cp -1) (appear 37))
  613. (inf -21 -1 1 (n "von Gilsa") (cp -1) (appear 6))
  614. (inf -21 -1 1 (n "Ames") (cp -1) (appear 6))
  615. (inf -31 -1 1 (n "Coster") (cp -1) (appear 8))
  616. (inf -31 -1 1 (n "Smith") (cp -1) (appear 8))
  617. (inf -31 -1 1 (n "Schimmelfenning") (cp -1) (appear 6))
  618. (inf -31 -1 1 (n "Krzyzanowski") (cp -1) (appear 6))
  619. (arty -31 -1 1 (n "Osborn a") (cp -1) (appear 7))
  620. (arty -31 -1 1 (n "Osborn b") (cp -1) (appear 7))
  621. (inf -48 -4 1 (n "McDougall") (cp -1) (appear 10))
  622. (inf -48 -4 1 (n "Ruger") (cp -1) (appear 10))
  623. (inf -48 -4 1 (n "Candy") (cp -1) (appear 10))
  624. (inf -48 -4 1 (n "Kane") (cp -1) (appear 11))
  625. (inf -48 -4 1 (n "Greene") (cp -1) (appear 11))
  626. (arty -48 -4 1 (n "Muhlenburg 1") (cp -1) (appear 12))
  627. (arty -48 -4 1 (n "Muhlenburg 2") (cp -1) (appear 12))
  628. (inf -21 -1 1 (n "Stannard") (cp -1) (appear 11))
  629. (inf -48 -4 1 (n "Lockwood") (cp -1) (appear 25))
  630. (arty -31 -1 1 (n "Ransom") (cp -1) (appear 24))
  631. (arty -31 -1 1 (n "McGilvey") (cp -1) (appear 28))
  632. (arty -31 -1 1 (n "Taft") (cp -1) (appear 24))
  633. (arty -31 -1 1 (n "Huntington") (cp -1) (appear 25))
  634. (arty -31 -1 1 (n "Fitzhugh") (cp -1) (appear 25))
  635. (cav 20 24 1 (n "Gamble"))
  636. (cav 20 23 1 (n "Devin"))
  637. (cav -43 -19 1 (n "McIntosh") (cp -1) (appear 36))
  638. (cav -43 -19 1 (n "Gregg") (cp -1) (appear 36))
  639. (cav -43 -19 1 (n "Farnsworth") (cp -1) (appear 57))
  640. (cav -43 -19 1 (n "Custer") (cp -1) (appear 57))
  641. (supply-train -48 -4 1 (cp -1) (appear 16))
  642.  
  643. (inf -1 -32 2 (n "Anderson") (cp -1) (appear 18))
  644. (inf -1 -32 2 (n " Benning") (cp -1) (appear 18))
  645. (inf -1 -32 2 (n "Law") (cp -1) (appear 31))
  646. (inf -1 -32 2 (n "Robertson") (cp -1) (appear 18))
  647. (arty -1 -32 2 (n "Henry") (cp -1) (appear 19))
  648. (inf -1 -32 2 (n "Barksdale") (cp -1) (appear 19))
  649. (inf -1 -32 2 (n "Kershaw") (cp -1) (appear 19))
  650. (inf -1 -32 2 (n "Semmes") (cp -1) (appear 20))
  651. (inf -1 -32 2 (n "Wofford") (cp -1) (appear 20))
  652. (arty -1 -32 2 (n "Cabell") (cp -1) (appear 20))
  653. (inf -1 -32 2 (n "Armisted") (cp -1) (appear 36))
  654. (inf -1 -32 2 (n "Garnett") (cp -1) (appear 36))
  655. (inf -1 -32 2 (n "Kemper") (cp -1) (appear 36))
  656. (arty -1 -32 2 (n "Dearing") (cp -1) (appear 37))
  657. (inf -1 -32 2 (n "Alexander") (cp -1) (appear 21))
  658. (inf -1 -32 2 (n "Eshleman") (cp -1) (appear 21))
  659. (inf -19 -34 2 (n "Gordon") (cp -1) (appear 9))
  660. (inf -19 -34 2 (n "Hays") (cp -1) (appear 9))
  661. (inf -19 -34 2 (n "Hoke") (cp -1) (appear 9))
  662. (inf -19 -34 2 (n "Smith") (cp -1) (appear 10))
  663. (arty -19 -34 2 (n "H. Jones") (cp -1) (appear 10))
  664. (inf -1 -32 2 (n "Jones") (cp -1) (appear 13))
  665. (inf -1 -32 2 (n "Nicholls") (cp -1) (appear 13))
  666. (inf -1 -32 2 (n "Steuart") (cp -1) (appear 13))
  667. (inf -1 -32 2 (n "Walker") (cp -1) (appear 14))
  668. (arty -1 -32 2 (n "Latimer") (cp -1) (appear 14))
  669. (inf -7 -34 2  (n "Daniel") (cp -1) (appear 7))
  670. (inf -7 -34 2 (n "Doles") (cp -1) (appear 7))
  671. (inf -7 -34 2 (n "Iverson") (cp -1) (appear 7))
  672. (inf -7 -34 2 (n "O'Neal") (cp -1) (appear 8))
  673. (inf -7 -34 2  (n "Ramseur") (cp -1) (appear 8))
  674. (arty -1 -32 2 (n "Carter") (cp -1) (appear 8))
  675. (arty -1 -32 2 (n "Dance") (cp -1) (appear 15))
  676. (arty -1 -32 2 (n "Nelson") (cp -1) (appear 15))
  677. (inf -1 -32 2 (n "Mahone") (cp -1) (appear 12))
  678. (inf -1 -32 2 (n "Perry") (cp -1) (appear 12))
  679. (inf -1 -32 2 (n "Posey") (cp -1) (appear 12))
  680. (inf -1 -32 2 (n "Wilcox") (cp -1) (appear 13))
  681. (inf -1 -32 2 (n "Wright") (cp -1) (appear 13))
  682. (arty -1 -32 2 (n "J. Lane") (cp -1) (appear 13))
  683. (inf 5 30 2 (n "Archer"))
  684. (inf -1 -32 2 (n "Brockenbrough") (cp -1) (appear 4))
  685. (inf 5 30 2 (n "Davis"))
  686. (inf -1 -32 2 (n "Pettigrew") (cp -1) (appear 4))
  687. (inf -1 -32 2 (n "J. Garnet") (cp -1) (appear 4))
  688. (inf -1 -32 2 (n "Lane") (cp -1) (appear 7))
  689. (inf -1 -32 2 (n "Perrin") (cp -1) (appear 7))
  690. (inf -1 -32 2 (n "Scales") (cp -1) (appear 7))
  691. (inf -1 -32 2 (n "Thomas") (cp -1) (appear 8))
  692. (arty -1 -32 2 (n "Poague") (cp -1) (appear 8))
  693. (arty -1 -32 2 (n "McIntosh") (cp -1) (appear 5))
  694. (arty -1 -32 2 (n "Pegram") (cp -1) (appear 3))
  695. (cav -19 -34 2 (n "Hampton") (cp -1) (appear 33))
  696. (cav -19 -34 2 (n "Jenkins") (cp -1) (appear 10))
  697. (cav -19 -34 2 (n "F. Lee") (cp -1) (appear 33))
  698. (cav -19 -34 2 (n "W. Lee") (cp -1) (appear 33))
  699. (supply-train -1 -32 2 (cp -1) (appear 16))
  700.  
  701. ;;; Should be more elaborate.
  702.  
  703. (scorekeeper (do last-side-wins))
  704.  
  705. ;;; We get at least three days.
  706.  
  707. (set last-turn 72)
  708.  
  709. ;;; ... and possibly another few hours.
  710.  
  711. (set extra-turn-chance 10)
  712.  
  713. (set calendar '(usual "hour"))
  714.  
  715. (set initial-date "06 1 Jul 1863")
  716.  
  717. ;; The game starts at six hours before noon.
  718.  
  719. (set initial-day-part 16.00)
  720.  
  721. (add u* already-seen 100)
  722.  
  723. (game-module (design-notes (
  724.   "This is a brigade-level simulation, inspired by the game described in"
  725.   "the July-Aug 1992 issue of Command."
  726.   ""
  727.   "The scale is 5 hexes/mile, 1 hour/turn."
  728.   )))
  729.  
  730.